<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><title>R: The Joyner-Boore Attenuation Data</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" type="text/css" href="R.css">
</head><body>

<table width="100%" summary="page for attenu"><tr><td>attenu</td><td align="right">R Documentation</td></tr></table>

<h2>The Joyner&ndash;Boore Attenuation Data</h2>

<h3>Description</h3>


<p>This data gives peak accelerations measured at various observation
stations for 23 earthquakes in California.  The data have been used
by various workers to estimate the attenuating affect of distance
on ground acceleration.
</p>


<h3>Usage</h3>

<pre>attenu</pre>


<h3>Format</h3>


<p>A data frame with 182 observations on 5 variables.
</p>

<table summary="Rd table">
<tr>
 <td align="right">
    [,1] </td><td align="left"> event   </td><td align="left"> numeric </td><td align="left"> Event Number</td>
</tr>
<tr>
 <td align="right">
    [,2] </td><td align="left"> mag     </td><td align="left"> numeric </td><td align="left"> Moment Magnitude</td>
</tr>
<tr>
 <td align="right">
    [,3] </td><td align="left"> station </td><td align="left"> factor  </td><td align="left"> Station Number</td>
</tr>
<tr>
 <td align="right">
    [,4] </td><td align="left"> dist    </td><td align="left"> numeric </td><td align="left"> Station-hypocenter distance (km)</td>
</tr>
<tr>
 <td align="right">
    [,5] </td><td align="left"> accel   </td><td align="left"> numeric </td><td align="left"> Peak acceleration (g)</td>
</tr>

</table>



<h3>Source</h3>


<p>Joyner, W.B., D.M. Boore and R.D. Porcella (1981).  Peak horizontal
acceleration and velocity from strong-motion records including
records from the 1979 Imperial Valley, California earthquake.  USGS
Open File report 81-365. Menlo Park, Ca.
</p>


<h3>References</h3>


<p>Boore, D. M. and Joyner, W.B.(1982)
The empirical prediction of ground motion,
<EM>Bull. Seism. Soc. Am.</EM>, <B>72</B>, S269&ndash;S268.
</p>
<p>Bolt, B. A. and Abrahamson, N. A. (1982)
New attenuation relations for peak and expected accelerations of
strong ground motion,
<EM>Bull. Seism. Soc. Am.</EM>, <B>72</B>, 2307&ndash;2321.
</p>
<p>Bolt B. A. and Abrahamson, N. A. (1983)
Reply to W. B. Joyner &amp; D. M. Boore's &ldquo;Comments on: New
attenuation relations for peak and expected accelerations for peak
and expected accelerations of strong ground motion&rdquo;,
<EM>Bull. Seism. Soc. Am.</EM>, <B>73</B>, 1481&ndash;1483. 
</p>
<p>Brillinger, D. R. and Preisler, H. K. (1984)
An exploratory analysis of the Joyner-Boore attenuation data,
<EM>Bull. Seism. Soc. Am.</EM>, <B>74</B>, 1441&ndash;1449.
</p>
<p>Brillinger, D. R. and Preisler, H. K. (1984)
<EM>Further analysis of the Joyner-Boore attenuation data</EM>.
Manuscript.
</p>


<h3>Examples</h3>

<pre>
require(graphics)
## check the data class of the variables
sapply(attenu, data.class)
summary(attenu)
pairs(attenu, main = "attenu data")
coplot(accel ~ dist | as.factor(event), data = attenu, show.given = FALSE)
coplot(log(accel) ~ log(dist) | as.factor(event),
       data = attenu, panel = panel.smooth, show.given = FALSE)
</pre>


</body></html>
